<text>The Core Collection is a group of 50 externals developed over the past several years. I hope someone finds them useful.-- Legal StuffThese externals are FreeWare, allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack. The Core Collection can be licensed for commercial use for $49. All updates are free. Internet: sudderth@traveller.comWeb: http://www.hsv.tis.net/~sudderth© 1991-1995 All Rights ReservedCore Development Group, Inc. / Written by John Sudderth If you would like an external developed for your company just drop us a line.Version history:v2.1 - Added 6 new externals: GetDepth, GetRAM, RestoreClut, GetFileSize, MoveToTrash, and UseCustomIcon. Changed PasswordDialog to allow field names and contents to be parameter driven and fixed a memory bug.Changed ShowAboutBox to use standard arrow cursor while displayed.Removed GetEOF. This function is now included in GetFileSize.v2.0 - Added 5 new externals: PasswordDialog, SetWindowTitle, ShowAboutBox, CreateAlias, and SetDepth.Changed the look at little bit and decided to jump to version 2.0.Added optional path parameter to GetInfoBox.Fixed a folder option bug in FolderContents. FolderContents can now handle huge lists.Fixed a redraw bug in CopyFile when making multiple calls (no longer makes any calls back to HyperCard).V1.7 -Added 1 new external: ReadWritePrefs. Removed SortList.Fixed a bug in FolderContents.V1.6 -Added 7 new externals: ChangeType, SetDefaultFolder, PutDefaultFolder, SetComment, IsVirtualOn, FolderPath and FolderIsShared.Removed end with colon restriction in CreatePath.Fixed a bug in SortList that caused a lockup (a rampant pointer).Added an optional path parameter to GetFolder and fixed a bug.Removed Blessed. This function is now included in FolderPath.V1.5 -Added 5 new externals: EjectDisk, GetFolder, LockFile, LockName, and RenameFile.DeleteFolder example was an XCMD instead of an XFCN (cut and paste error!!!).Changed Unmount to check to see if volume is really an AppleShare volume.Fixed a bug in GetManger when looking for Translation manager.Changed Compare to CompareDate to reduce confusion over what it actually does.Fixed BumpDate to handle the word "false" as second parameter.Enhanced the interface to make testing the externals easier.V1.4 - Added 5 new externals: GetInfoBox, GetComment, GetManager, SetVisible, and FolderContents.Fixed bug dealing with empty parameter list in Blessed and BootVolume.V1.3 -Added 5 new externals. BumpDate, DoesExist, GetTypeCount, IsAppleShare, and ChangeCreator.Changed CopyFile to update desktop properly.Added parameter to GetAppPath to search the boot volume or all volumes.</text>
</content>
<content>
<layer>card</layer>
<id>16</id>
<text>v2.1</text>
</content>
<name>Credits</name>
<script>on openCardset scroll of cd fld 1 to 0end opencardon mouseUpvisual dissolvego backend mouseUp</script>
</card>
card_7968.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put Volumes() into cd fld 2end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>50 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which returns all mounted volumes in a return delimited list.Calling syntax: Volumes()Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>Volumes</name>
<script></script>
</card>
card_29736.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put GetFolder() into tempif temp is empty then exit to hyperCardput UseCustomIcon(temp, 1) into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>49 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which sets the "Use Custom Icon" flag for a file or folder.Calling syntax: UseCustomIcon ( <pathname>, <boolean> )Pass T or True or 1 to turn flag on.Pass F or False or 0 to turn flag off.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>UseCustomIcon</name>
<script></script>
</card>
card_11996.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal UnmountErrorput empty into UnmountErrorput empty into cd fld 2put Volumes() into listdelete last char of listget showList(list,"Please select volume:",false,true,"Select,Cancel",0)if line 1 of it is not "Cancel" thenput line (line 2 of it) of list into theVolumeput Unmount(theVolume) into thisif UnmountError is not empty thenput UnmountError into cd fld 2exit to hyperCardend ifend ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>48 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which will only unmount AppleShare volumes.Calling syntax: Unmount ( <Volume> )All errors are returned in the global variable UnmountError. Just declare it in your handler.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>Unmount</name>
<script></script>
</card>
card_7823.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>An XFCN which can be used to help format text. Calling syntax: StripList ( <text>, <start>, <end> )Instead of using a HyperCard repeat loop that looks like this:repeat with i = 1 to number of lines in cd fld 1 delete char 1 to 24 of line i of cd fld 1end repeatAnyway... it's a painful process to watch. This is much faster.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>StripList</name>
<script>on closeCardput empty into cd fld 3end closeCard</script>
</card>
card_26512.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>An XCMD that will display a simple "About" box.Calling syntax: ShowAboutBoxThis XCMD uses the following resources:DLOG 297DITL 297You must copy these resources along with the XCMD to your stack.You can put additional icons, or picts, or text into the DITL and resize it as long as you don't renumber items 1 and 2.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>ShowAboutBox</name>
<script></script>
</card>
card_18509.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "Select file."if it is empty then exit to hyperCardput it into fileNameput hilite of cd btn "true" into typeput SetVisible(fileName, type) into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>85</left>
<top>124</top>
<right>138</right>
<bottom>146</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>True</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>137</left>
<top>124</top>
<right>190</right>
<bottom>146</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>False</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>45 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will make a file or folder invisible or visible.Calling syntax: SetVisible ( <pathname>, <boolean> )Pass T or True or 1 to make visible.Pass F or False or 0 to make invisible.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>SetVisible</name>
<script></script>
</card>
card_26015.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2ask "Enter new title:"if it is empty then exit to hyperCardput it into newTitleSetTitle newTitleend mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>44 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XCMD that will change the name of the current window (or card). Calling syntax: SetTitle <title>Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>SetTitle</name>
<script>on openCardSetTitle "What a Great Title!!!"pass openCardend openCardon closeCardSetTitle short name of this stackpass closeCardend closeCard</script>
</card>
card_9252.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put SetDepth(8, 1) into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>43 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which set the bit depth of the main monitor. Valid bit depths are "1,2,4,8,16,32". The second parameter is optional. Pass a 0 for grays or 1 for color.Calling syntax: SetDepth ( <bit depth>, [<mode>] )If the bit depth is not supported then SetDepth will return the max bit depth of the main monitor (the one with the menubar).Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>SetDepth</name>
<script></script>
</card>
card_23048.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "Select file."if it is empty then exit to hyperCardput it into fileNameput SetComment(fileName, "This is a sample comment.") into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>42 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will make a put a comment into the comment field of any file or directory. Comments are limited to 200 characters.Calling syntax: SetComment ( <pathname>, <comment> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>SetComment</name>
<script></script>
</card>
card_28006.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>An XCMD which will restore the default system palette. This is useful if a pict file or resource has changed the color lookup table.Calling syntax: RestoreClut Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>RestoreClut</name>
<script></script>
</card>
card_22187.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal oldFullPath, newFullPathput empty into cd fld 2answer file "Select file:"if it is not empty thenput it into oldNameput length(oldName) into fullLengthput GetFileName(oldName) into fileNameput length(fileName) into nameLengthput char 1 to (fullLength - nameLength) of oldName into partialPathask "Enter new file name:"if it is not empty thenput it into newNameput partialPath & newName into newFullPathput RenameFile(oldName, newFullPath) into thisput this into cd fld 2end ifend ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>40 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which rename a given file or folder.Calling syntax: RenameFile ( <old fullpathname>, <new fullpathname> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>RenameFile</name>
<script></script>
</card>
card_4353.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2if hilite of cd btn "read" is truethenput ReadWritePrefs("READ", "My Preferences",) into thiselseput ReadWritePrefs("WRITE", "My Preferences", "High Score = 500") into thisend ifput this into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpput empty into meend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>85</left>
<top>124</top>
<right>138</right>
<bottom>146</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Read</name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>137</left>
<top>124</top>
<right>190</right>
<bottom>146</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Write</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>39 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which read and write a preference file in the Preferences Folder.Calling syntax: ReadWritePrefs ( <read>, <filename> )ReadWritePrefs ( <write>, <filename>, <values> )ReadWritePrefs creates a resource called "pfrs" in a preference file to hold your values.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>ReadWritePrefs</name>
<script></script>
</card>
card_22683.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put PutDefaultFile("My Hard Drive:Folder") into thisput this into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>38 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will open a standard SFPutFile dialog box at a given path.Calling syntax: PutDefaultFile ( <path>, [<prompt>], [<defaultFileName>] )The second and third parameters are optional.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>PutDefaultFile</name>
<script></script>
</card>
card_7461.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput 100 into maxValrepeat with i = 1 to maxValput i into cd fld 3ProgressBar the rect of cd fld "Status",¬i, maxValend repeatgo to this cardput empty into cd fld 3end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>21</left>
<top>128</top>
<right>208</right>
<bottom>142</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Status</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>94</left>
<top>99</top>
<right>131</right>
<bottom>115</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>37 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>ProgressBar is an XCMD which will display a progress bar during a loop.Calling syntax: ProgressBar <rect>, <min>, <max>Rect is a field or button. Min and Max are passed from within your loop.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>ProgressBar</name>
<script>on closeCardput empty into cd fld 3pass closeCardend closeCard</script>
</card>
card_26966.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put PasswordDialog ("Name:", "Password:", "User Name") into thisif this is empty then exit to hypercardput this into cd fld 2end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpput empty into meend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>36 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which will display a dialog that allows you to enter a name and password. The password field displays bullets. It doesn't encrypt the result.Syntax: PasswordDialog (<1st title>, <2nd title>, [<1st field>] )The 1st field parameter is optional.This XFCN uses these resources:DLOG 202DITL 202You must copy these resources along with the XFCN to your stack.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>PasswordDialog</name>
<script></script>
</card>
card_29384.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "What file should be moved?"if it is not empty thenput it into fileNameput MoveToTrash(fileName) into cd fld 2end ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>35 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which will move a given file to the trash.Calling syntax: MoveToTrash ( <pathname> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>MoveToTrash</name>
<script></script>
</card>
card_4974.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal MountErrorput empty into MountErrorput empty into cd fld 2set cursor to watchput Mount("Zone", "Server", "Volume", "userName", "Password") into thisset cursor to normalif MountError is not empty thenput MountError into cd fld 2exit to hyperCardend ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>34 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which will mount an AppleShare Volume.Calling syntax: Mount (<Zone>, <Server>, <Volume>, <UserName>, <Password> ) All errors are returned in the global variable MountError. Just declare it in your handler.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>Mount</name>
<script></script>
</card>
card_21080.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put hilite of cd btn "true" into typeanswer file "Select file."if it is empty then exit to hyperCardput it into fileNameput LockName(fileName, type) into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>85</left>
<top>124</top>
<right>138</right>
<bottom>146</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>True</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>137</left>
<top>124</top>
<right>190</right>
<bottom>146</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>False</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>33 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will lock or unlock a file's name (if locked the file can still be changed or deleted... only the name can't be changed).Calling syntax: LockName ( <pathname>, <boolean> )Pass T or True or 1 to lock file.Pass F or False or 0 to unlock file.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>LockName</name>
<script></script>
</card>
card_20213.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put hilite of cd btn "true" into typeanswer file "Select file."if it is empty then exit to hyperCardput it into fileNameput LockFile(fileName, type) into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>85</left>
<top>124</top>
<right>138</right>
<bottom>146</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>True</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>137</left>
<top>124</top>
<right>190</right>
<bottom>146</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>False</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>32 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will lock or unlock a file (if locked the file cannot be renamed, deleted, changed, etc.).Calling syntax: LockName ( <pathname>, <boolean> )Pass T or True or 1 to lock file.Pass F or False or 0 to unlock file.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>LockFile</name>
<script></script>
</card>
card_24635.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput IsVirtualOn() into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>225</left>
<top>57</top>
<right>398</right>
<bottom>173</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>31 of 50</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>An XFCN which returns "True" if Virtual Memory is on and "False" if not.Calling syntax: IsVirtualOn()No parameters.Note: If Ram Doubler is installed IsVirtualOn() will return "On" even if Virtual Memory is off in the Memory Control Panel.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>IsVirtualOn</name>
<script></script>
</card>
card_16123.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal IsAppleShareErrorput empty into IsAppleShareErrorput empty into cd fld 2answer file "What file?"if it is not empty then put it into fileNameput IsAppleShare(fileName) into thisput this into cd fld 2if IsAppleShareError is not empty thenput IsAppleShareError into cd fld 2end ifend mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>30 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will return TRUE if the given path resides on a AppleShare Server and FALSE if it does not.Calling syntax: IsAppleShare ( <pathname> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>IsAppleShare</name>
<script></script>
</card>
card_7370.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "Select file."if it is empty then exit to hyperCardput it into fileNameput GetVersion(fileName) into cd fld 2end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>29 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which will return the version of a given file or application (providing it has a 'vers' resource).Calling syntax: GetVersion ( <pathname> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetVersion</name>
<script></script>
</card>
card_16503.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2set cursor to watchput GetTypeCount("TEXT") into thisput "Number of matching files:" && this into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>28 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which returns the number of files that match a file type.Calling syntax: GetTypeCount ( <type> )File type examples:'TEXT''APPL''rsrc'Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetTypeCount</name>
<script></script>
</card>
card_7024.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput GetString(128,1) into cd fld 2end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>27 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which will read a STR or STR# resource.Calling syntax: GetString ( <STR ID> ) or ( <STR# ID, INDEX#> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetString</name>
<script></script>
</card>
card_6684.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put GetSetup() into cd fld 2end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>26 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which will bring back the Owner Name, Machine Name and currently selected printer type when using System 7 or later in a return delimited list. Calling syntax: GetSetup() The Owner Name and Machine Name can be entered by selecting Sharing Setup from Control Panels. The printer type can be selected from the Chooser. Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetSetup</name>
<script></script>
</card>
card_28613.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput GetRAM() into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>225</left>
<top>57</top>
<right>398</right>
<bottom>173</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>25 of 50</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>An XFCN which returns available RAM.Calling syntax: GetRAM()No parameters.Line 1 is built-in memory or Physical RAM.Line 2 is total memory or Logical RAM.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetRAM</name>
<script></script>
</card>
card_15535.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put GetManager("POWER") into thisput this into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>24 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will check for the existence of the following managers:AliasAppleEventsComm ResourceConnectionDatabase AccessDialogDictionaryDisplayEasy AccessEditionFile TransferFolderFontHelpNotificationPowerSlotSoundSpeechTerminalTranslationCalling syntax: GetManager ( <manager name> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>GetManager</name>
<script></script>
</card>
card_17614.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put GetInfoBox(long name of hypercard) into thisput this into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>23 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will open the " Get Info" box of any application. This might be used to change the memory size of an application.Calling syntax: GetInfoBox ( [<path>] )If path is omitted the user will be presented with a "select application" dialog box.This XFCN uses the following resources:DLOG 966DITL 966You must copy these resources along with the XFCN to your stack.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetInfoBox</name>
<script></script>
</card>
card_20574.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put Blessed() into thePathput GetFolder(thePath) into cd fld 2end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpput empty into meend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>22 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which will present a standard file selection dialog containing only folders.Calling syntax: GetFolder ( [<path>] )Path will point the dialog at a specific folder and is optional.This XFCN uses these resources:DLOG 777DITL 777You must copy these resources along with the XFCN to your stack.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.2</text>
</content>
<name>GetFolder</name>
<script></script>
</card>
card_30886.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "Select file."if it is empty then exit to hyperCardput it into fileNameput GetFileSize(fileName) into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>225</left>
<top>57</top>
<right>398</right>
<bottom>173</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>21 of 50</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>An XFCN which returns the size of a file.Calling syntax: GetFileSize( <fileName> )Line 1 is the size of the data fork.Line 2 is the size of the resource fork.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetFileSize</name>
<script></script>
</card>
card_6446.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "What file?"if it is not empty then put it into fileNameput GetFileName(fileName) into thisput this into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpput empty into meend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>20 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which strips everything off a file name.Calling syntax: GetFileName ( <pathname> )This is easy to do in HyperTalk... but if you need to go through a LONG list (I did) it's much faster this way.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetFileName</name>
<script></script>
</card>
card_28864.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put GetDepth( "C" ) into thisput GetDepth( "M" ) into thatput "Current Depth" && this into line 1 of cd fld 2put "Maximum Depth" && that into line 2 of cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>19 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will return the current or max depth of the main monitor.Calling syntax: GetDepth ( <type> )Pass "C" or "Current" for current bit depth. Pass "M" or "Max" for maximum bit depth.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetDepth</name>
<script></script>
</card>
card_23509.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put GetDefaultFile() into thisput this into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>18 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will open a standard SFGetFile dialog box at a given path.Calling syntax: GetDefaultFile ( [<path>] )Path is optional.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetDefaultFile</name>
<script></script>
</card>
card_19193.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "Select file to check."if it is empty then exit to hyperCardput it into fileNameput GetComment(fileName) into cd fld 2end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>17 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text><span class="style2">n XFCN which will return the contents of the comment field of an application.Calling syntax: GetComment ( <pathname> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</span></text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>GetComment</name>
<script></script>
</card>
card_13422.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset cursor to watchput empty into cd fld 3put GetAppPath(cd fld 2, false) into cd fld 3end mouseUp</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>21</left>
<top>128</top>
<right>208</right>
<bottom>142</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpask "Enter type:"if it is not empty then put it into meend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>16 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text><span class="style2">n XFCN which can be used to locate all copies of an application by it's creator. The full path to each copy of the application is returned in a return delimited list.Calling syntax: GetAppPath ( <creator>, <search type> )Search type is a Boolean (or is turned into one).Pass "F", false, or 0 to search just the boot volume.Pass "T", true, or 1 to search all volumes. Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</span></text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text>ztcp</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.2</text>
</content>
<name>GetAppPath</name>
<script>on closeCardput empty into cd fld 3end closeCard</script>
</card>
card_24160.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput FolderPath("Apple Menu Items", 0) into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>225</left>
<top>57</top>
<right>398</right>
<bottom>173</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>15 of 50</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>An XFCN which returns the path of the following folders:Apple Menu ItemsControl PanelsDesktop FolderExtensionsPreferencesPrintMonitor DocumentsTrashNetwork TrashStartup ItemsSystem FolderTemporary ItemsCalling syntax: FolderPath( <type>, <create> )Create is a boolean. Pass true (or T or 1) to create the folder if it doesn't exist.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>FolderPath</name>
<script></script>
</card>
card_25181.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put GetFolder() into thisif this is empty thenexit to hypercardend ifput FolderIsShared(this) into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>14 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will check a folder to see if it is being shared. Calling syntax: FolderIsShared ( <path> )Returns "True" if being shared, "False" if not.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>FolderIsShared</name>
<script></script>
</card>
card_17931.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put GetFolder() into thisif this is empty thenexit to hypercardend ifif hilite of cd btn "files" is true thenput files into typeelse if hilite of cd btn "folders" is true thenput "folders" into typeelseput "both" into typeend ifput FolderContents(this, type) into thatput that into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>109</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>62</left>
<top>120</top>
<right>107</right>
<bottom>142</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Files</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>106</left>
<top>120</top>
<right>159</right>
<bottom>142</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Folders</name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>120</top>
<right>213</right>
<bottom>142</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Both</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>13 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which returns the contents of a folder (or directory) in a return delimited list.Calling syntax: FolderContents ( <pathname>, <content type> )Content types:FilesFoldersBothUsing "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.4</text>
</content>
<name>FolderContents</name>
<script></script>
</card>
card_19328.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put Volumes() into listdelete last char of listget showList(list,"Please select disk:",false,true,"Select,Cancel",0)if line 1 of it is not "Cancel" thenput line (line 2 of it) of list into thediskput EjectDisk(thedisk) into thisend ifend mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>12 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which will unmount and eject a mounted disk (floppy, removable, CD-ROM, AppleShare volumes, etc.).Calling syntax: EjectDisk ( <pathname> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>EjectDisk</name>
<script></script>
</card>
card_14078.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2if cd fld 3 is empty thenanswer file "Select file to check:"if it is empty then exit to hyperCardput it into fileNameput fileName into cd fld 3elseput cd fld 3 into fileNameend ifput DoesExist(fileName) into cd fld 2end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>21</left>
<top>128</top>
<right>208</right>
<bottom>142</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>11 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which checks for the existence of a given file or folder.Calling syntax: DoesExist ( <pathname> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>DoesExist</name>
<script>on closeCardput empty into cd fld 3pass closeCardend closeCard</script>
</card>
card_12317.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2put GetFolder() into fileNameif fileName is not empty thenput DeleteFolder(fileName) into cd fld 2end ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>10 of 50</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>An XFCN which deletes any given file or folder.Calling syntax: DeleteFolder ( <pathname> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>DeleteFolder</name>
<script></script>
</card>
card_2299.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>An XCMD which deletes a given file by presenting a standard file dialog box to the user.Calling syntax: DeleteFile This is a snap to use. No parameters... no fooling.This XCMD uses these resources:DLOG 995DITL 995You must copy these resources along with the XCMD to your stack.</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>DeleteFile</name>
<script></script>
</card>
card_15065.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal CreatePathErrorput empty into CreatePathErrorask "Please enter full pathname:"put it into pathNameCreatePath pathNameif CreatePathError is not empty then put CreatePathError into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>8 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XCMD which will create a path. Given a valid volume, It will create folders within folders within folders etc. This is a non-destructive XCMD. If a folder exists, it will not create a new one. Calling syntax: CreatePath <path> All errors are returned in the global variable CreatePathError. Just declare it in your handler. Using "!" and "?" parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>CreatePath</name>
<script></script>
</card>
card_27454.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "What file?"if it is not empty then put it into fileNameelse exit mouseUpput CreateAlias (fileName) into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>7 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN that will create an alias of a file or folder.Calling syntax: CreateAlias ( <path>, [<alias path>] )The second parameter is optional. If omitted the alias will be created using the same path as the file or folder. Using "!" and "?" parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>CreateAlias</name>
<script></script>
</card>
card_4675.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal copyErrorput empty into copyErrorput hilite of cd btn "true" into typeanswer file "Select file to copy:"if it is not empty thenput it into sourceask file "Select Destination:"if it is not empty thenput it into destinationgo to this cdset the cursor to watchCopyFile source, destination, typeif copyError is not empty then put copyError into messageset the cursor to normalend ifend ifgo to this cdend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>89</left>
<top>118</top>
<right>142</right>
<bottom>140</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>True</name>
<script></script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>141</left>
<top>118</top>
<right>194</right>
<bottom>140</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>False</name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>108</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>6 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XCMD which will copy files from source to destination.Calling syntax: CopyFile <source>, <destination>, <replace>Replace is a Boolean. Pass true or T or 1 to replace file. Using "!" and "?" parameter will return an on-line help (resp. copyright and syntax).All errors are returned in the global variable copyError. Just declare it in your handler.CopyFile displays a thermometer-type dialog box during the copy (color if you've got it!). This feature is nice when copying really big files. Enhancements include proper handling of alias's, a new replace parameter, and returning errors in a global variable. This XCMD uses these resources:DLOG 794DITL 794You must copy these resources along with the XCMD to your stack.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.4</text>
</content>
<name>CopyFile</name>
<script></script>
</card>
card_11439.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal compareDateErrorput empty into compareDateErroranswer file "Select first file:"if it is not empty thenput it into firstFileanswer file "Select second file:"if it is not empty thenput it into secondFilego to this cdset the cursor to watchput "First File: " & GetFileName(firstFile) & return into cd fld 2put "Second File: " & GetFileName(secondFile) after cd fld 2put CompareDate (firstFile, secondFile, C) into thisput this into cd fld 3if compareDateError is not empty then put compareError into cd fld 3set the cursor to normalend ifend ifgo to this cdend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>21</left>
<top>128</top>
<right>208</right>
<bottom>142</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>5 of 50</text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>CompareDate is an XFCN which will compare the creation date or modification date of (2) two files. CompareDate will return TRUE if file1 is newer than file2. Calling syntax: CompareDate ( <file1>, <file2>, <date type> )All errors are returned in the global variable compareDateError. Just declare it in your handler.Date type is a Boolean . Pass "M", false, or 0 to check modified date.Pass "C", true, or 1 to check creation date.This along with CopyFile could be used to backup files.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>CompareDate</name>
<script>on closeCardput empty into cd fld 3pass closeCardend closeCard</script>
</card>
card_21638.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "What file?"if it is not empty then put it into fileNameelse exit mouseUpask "What type?"if it is not empty then put it into typeelse exit mouseUpput ChangeType(fileName, type) into thisput this into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>4 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will change the type of a given file.Calling syntax: ChangeType ( <pathname>, <type> )Types are always 4 characters long. Valid examples are 'TEXT' and 'APPL'.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.0</text>
</content>
<name>ChangeType</name>
<script></script>
</card>
card_17097.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "What file?"if it is not empty then put it into fileNameelse exit mouseUpask "What creator type?"if it is not empty then put it into creatorTypeelse exit mouseUpput ChangeCreator(fileName, creatorType) into thisput this into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>3 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>An XFCN which will change the creator type of a given file.Calling syntax: ChangeCreator ( <pathname>, <creator> )Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>ChangeCreator</name>
<script></script>
</card>
card_14375.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput empty into cd fld 2answer file "What file?"if it is not empty then put it into fileNameelse exit mouseUpput hilite of cd btn "creation" into typeput BumpDate(fileName, type) into thatput that into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>83</left>
<top>125</top>
<right>143</right>
<bottom>147</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Creation</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>142</left>
<top>125</top>
<right>202</right>
<bottom>147</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Modified</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>2 of 50</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text><span class="style2">n XFCN which will reset the modification date or creation date of a given file to the current date and time.Calling syntax: BumpDate ( <pathname>, <date type> )Date type is a Boolean (or is turned into one).Pass "M", false, or 0 to check modified date.Pass "C", true, or 1 to check creation date.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</span></text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>BumpDate</name>
<script></script>
</card>
card_13043.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput BootVolume() into cd fld 2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>225</left>
<top>57</top>
<right>398</right>
<bottom>173</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>57</top>
<right>209</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>39</id>
<text>1 of 50</text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text><span class="style2">n XFCN which returns the boot volume.Calling syntax: BootVolume()No parameters.Using "!" and "?" as a parameter will return an on-line help (resp. copyright and syntax).</span></text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>v1.1</text>
</content>
<name>BootVolume</name>
<script></script>
</card>
card_2915.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpselectWholeLine word 2 of the clickLine, the targetvisual effect barn door opengo cd line (word 2 of the clickLine) of meend mouseUp</script>